home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
util
/
boot
/
selector90.lha
/
Selector
/
bro
/
what
< prev
Wrap
AmigaDOS Script File
|
1998-10-06
|
913b
|
70 lines
.key file
.bra {
.ket }
failat 21
unset ext
set ext `list "{file}" lformat %e`
if "$ext" EQ lzx
set ext lha
endif
if "$ext" EQ digi
hip "{file}"
quit
endif
if "$ext" EQ xm
hip "{file}"
quit
endif
if "$ext" EQ mod
hip "{file}"
quit
endif
setenv ppshort "{file}"
if `count file env:ppshort text mod.` NOT EQ 0
hip "{file}"
quit
endif
unsetenv ppshort
if "$ext" EQ lha
run >nil: selector sel:bro/pleasewait.sel
set opa `list "{file}" lformat %m`
makedir >nil: "t:$opa"
lzx -a x "{file}" "t:$opa/"
execute sel:bro/makebrowser "t:$opa/"
selector t:file.sel
cd "t:$opa"
delete >nil: #? all force
cd sel:bro
delete >nil: "t:$opa" force
quit
endif
if exists "{file}.info"
wbrun "{file}"
if warn
sys:utilities/multiview SCREEN "{file}"
endif
else
"{file}" <>CON:30/30/600/100/Browser/auto/close/wait
if warn
sys:utilities/multiview SCREEN "{file}"
endif
endif